library(ggplot2)
library(reshape2)

theme_set(
	theme_gray(base_size=12, base_family="") %+replace% 
        theme(
        	axis.text = element_text(colour="black"),
            panel.grid.minor = element_blank(),
            panel.grid.major = element_blank(),
            panel.background = element_rect(fill="white"),
            legend.key = element_blank()
    )
)
output <- function(filename, width)
	pdf(paste(filename, '.pdf', sep=''),
		paper='special', width=8, height=8/width)





d <- read.csv('hiv.csv')
d <- melt(data.frame(d, t=1:nrow(d)), id.vars='t')

output('hiv', 2)
p <- ggplot(d, aes(x=t, y=value)) + geom_line(aes(color=variable)) + xlab('time') + ylab('count') + theme(legend.title=element_blank())
print(p)
dev.off()

